home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2003 September / PC Answers September 2003.iso / Software / freeware / pixeltoolbox / Setup.exe / Main / PixelToolbox.exe / PixelToolbox.dxr / Scripts_6_frame 1 script.ls < prev    next >
Encoding:
Text File  |  2002-06-08  |  1.2 KB  |  33 lines
  1. on exitFrame me
  2.   put "Loading Fonts..." into field "new status"
  3.   fontList = baFontList("TrueType")
  4.   sort(fontList)
  5.   repeat with i = 1 to count(fontList)
  6.     put getAt(fontList, i) into field "new status"
  7.     put RETURN & getAt(fontList, i) after field "fonts"
  8.   end repeat
  9.   delete line 1 of field "fonts"
  10.   put line 1 of field "fonts" into field "current font"
  11.   fontList = VOID
  12.   put "Loading Patterns..." into field "new status"
  13.   loadPatterns()
  14.   put "Loading Custom Colors..." into field "new status"
  15.   repeat with i = 1 to 32
  16.     readCustomColor = baReadIni("Custom Colors", "Color" & string(i), "Error", the moviePath & "PixelToolbox.ini")
  17.     if readCustomColor = "Error" then
  18.       alert("Could not load custom colors.")
  19.       exit repeat
  20.       next repeat
  21.     end if
  22.     put readCustomColor into line i of field "custom colors"
  23.   end repeat
  24.   if readCustomColor <> "Error" then
  25.     n = 1
  26.     repeat with i = member("custom color tile1").number to member("custom color tile1").number + 31
  27.       member("custom color tile" & string(n)).image.fill(member("custom color tile" & string(n)).rect, value(line n of field "custom colors"))
  28.       n = n + 1
  29.     end repeat
  30.   end if
  31.   put EMPTY into field "new status"
  32. end
  33.